home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / S-Sound and Music / (c)s3.d64 / american flag.c (.txt) next >
Commodore BASIC  |  2007-02-04  |  2KB  |  84 lines
  1. 5 POKE53280,0:POKE53281,0: REM SETS BORDER AND BACKGROUND TO BLACK
  2. 10 PRINT"[147]":REM CLEARS SCREEN AND HOMES CURSOR
  3. 15 REM AMERICAN FLAG IN RED, WHITE AND BLUE COLORS WITH SOUND EFFECTS
  4. 20 REM PERRY F. CRABILL, JR.
  5. 25 REM DECEMBER 15, 1982
  6. 30 PRINT:PRINT:PRINT:PRINT:PRINT
  7. 35 FOR K=1 TO 3
  8. 40 PRINT TAB(3);CHR$(31);
  9. 45 FOR I=1 TO 12
  10. 50 PRINT" ";
  11. 55 NEXT I
  12. 60 PRINT CHR$(28);
  13. 65 FOR I=1 TO 23
  14. 70 PRINT " ";
  15. 75 NEXT I
  16. 80 PRINT
  17. 85 PRINT TAB(3);CHR$(31);
  18. 90 FOR I=1 TO 12
  19. 95 PRINT " ";
  20. 100 NEXT I
  21. 105 PRINT CHR$(5);
  22. 110 FOR I=1 TO 23
  23. 115 PRINT " ";
  24. 120 NEXT I
  25. 125 PRINT
  26. 130 NEXT K
  27. 135 PRINT TAB(3);CHR$(31);
  28. 140 FOR I=1 TO 12
  29. 145 PRINT " ";
  30. 150 NEXT I
  31. 155 PRINT CHR$(28);
  32. 160 FOR I=1 TO 23
  33. 165 PRINT " ";
  34. 170 NEXT I
  35. 175 PRINT
  36. 180 FOR J=1 TO 3
  37. 185 PRINT TAB(3);CHR$(5);
  38. 190 FOR I=1 TO 35
  39. 195 PRINT " ";
  40. 200 NEXT I
  41. 205 PRINT
  42. 210 PRINT TAB(3);CHR$(28);
  43. 215 FOR I=1 TO 35
  44. 220 PRINT " ";
  45. 225 NEXT I
  46. 230 PRINT
  47. 235 NEXT J
  48. 240 REM STAR SPANGLED BANNER SOUND EFFECT
  49. 250 FOR L=54272 TO 54296:POKE L,0:NEXT:REM CLEARS SOUND CHIP
  50. 255 V=54296:W=54276:A=54277:HF=54273:LF=54272:S=54278:PH=54275:PL=54274
  51. 260 POKE V,15:POKE A,0:POKE PH,0:POKE PL,0
  52. 265 POKE S,240:POKE W,17
  53. 270 READ H:IF H=-1 THEN POKE W,0:GOTO 320
  54. 275 READ L
  55. 280 READ D
  56. 285 POKE HF,H:POKE LF,L
  57. 290 FOR T=1 TO D:NEXT:POKE W,16
  58. 295 FOR T=1 TO 50: NEXT
  59. 300 GOTO 260
  60. 320 GET A$:IF A$="" THEN 320:REM AWAITING DEPRESSION OF NAY KEY
  61. 330 PRINT"[147]":REM CLEARS SCREEN AND HOMES CURSOR
  62. 340 PRINT CHR$(5):REM FOR WHITE TEXT
  63. 345 END
  64. 400 DATA 25,177,187,21,154,62,17,37,250,21,154,250,25,177,250,34,75,500
  65. 405 DATA 43,52,187,38,126,62,34,75,250,21,154,250,24,63,250,25,177,500
  66. 410 DATA 25,177,187,25,177,62,43,52,375,38,126,125,34,75,250,32,94,500
  67. 415 DATA 28,214,125,32,34,125,34,75,250,34,75,250,25,177,250,21,154,250
  68. 420 DATA 17,37,250
  69. 430 DATA 25,177,187,21,154,62,17,37,250,21,154,250,25,177,250,34,75,500
  70. 435 DATA 43,52,187,38,126,62,34,75,250,21,154,250,24,63,250,25,177,500
  71. 440 DATA 25,177,187,25,177,62,43,52,375,38,126,125,34,75,250,32,94,500
  72. 445 DATA 28,214,125,32,94,125,34,75,250,34,75,250,25,177,250,21,154,250
  73. 450 DATA 17,37,250
  74. 455 DATA 43,52,62,43,52,62,43,52,250,45,198,250,51,97,250,51,97,500
  75. 460 DATA 45,198,125,43,52,125,38,126,250,43,52,250,45,198,250,45,198,500
  76. 465 DATA 45,198,250,43,52,375,38,126,125,34,75,250,32,94,500,28,214,125
  77. 470 DATA 32,94,125,34,75,250,21,154,250,24,63,250,25,177,500,25,177,250
  78. 475 DATA 34,75,250,34,75,250,34,75,125,32,94,125,28,214,250,28,214,250
  79. 480 DATA 28,214,250,38,126,250,45,198,125,43,52,125,38,126,125,34,75,125
  80. 485 DATA 34,75,250,32,94,250,25,177,125,25,177,125,34,75,375,38,126,125
  81. 490 DATA 43,52,125,45,198,125,51,97,500,34,75,125,38,126,125,43,52,375
  82. 495 DATA 45,198,125,38,126,250,34,75,450
  83. 999 DATA -1
  84.